A code was developed for the calculation of interplanetary solar proton fluences at 1 AU for the active years 1977 to 1983. The fluences are presented as functions of mission duration tau, energy threshold E, and confidence level Q. For a given combination of tau and Q, the routine determines whether ordinary or anomalously large events are to be considered, and in the latter case, the number of anomalously large events that are predicted by probabilistic theory for the specified mission duration. The code is described in detail. A listing and sample calculations are included.